Private Sub Command1_Click()
Do Until Form1.Top = Screen.Height
Form1.Top = Form1.Top + 1
Loop
Unload Me
End Sub

Etiketler:
Beğeniler: 0
Favoriler: 0
İzlenmeler: 522
favori
like
share