Formu kaydırma

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