Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long
Private Sub Command1_Click()
Me.ScaleMode = vbPixels
Me.ScaleMode = vbPixels
Me.Cls
PaintDesktop Me.hdc
End Sub

Private Sub Form_Load()
Call Command1_Click
Me.ScaleMode = vbPixels
Me.ScaleMode = vbPixels
Me.Cls
PaintDesktop Me.hdc
End Sub

نوشته شده در تاریخ سه شنبه 17 آذر 1388    | توسط: محمد و مجید َ    |    |
نظرات()