Formu kaydırma

Son güncelleme:
  • Private Sub Command1_Click()
    Do Until Form1.Top = Screen.Height
    Form1.Top = Form1.Top + 1
    Loop
    Unload Me
    End Sub
0 0 0