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