[MSDOS]

تفضل اقتناص حدث Paint ضعها داخل كلاس الأداة
الحين ضع ما تريد داخل دالة myPaint

كود :

Const WM_NCPAINT As Integer = &H85
Protected Overrides Sub WndProc(ByRef m As Message)
    MyBase.WndProc(m)
    If m.Msg = WM_NCPAINT Then
        ' myPaint استدعاء دالة
        myPaint()
    End If
End Sub


' myPaint دالة
Private Sub myPaint()
    Dim g As Graphics = Graphics.FromHwnd(Me.Handle) ' Me.CreateGraphics
    ''
    ''
End Sub

معدل