ご指摘いただいた点は変更しました。

Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long
Private Sub Paint(X As Long, Y As Long)

     Dim T
    T = Screen.TwipsPerPixelY

    ExtFloodFill Me.hdc, X / T, Y / T, vbBlack, 0
    Me.Refresh

End Sub

ただ、型云々というのがいまいち分からないです。

このサイトを読み返してもわかりませんでした、他のサイトで調べたかったのですが、的確なキーワードがわからず断念しました。