BOUTON DE CONTROLE

Option Explicit
 'commande haut gauche
Private Sub Command1_Click()
Form1.Left = 0
Form1.Top = 0
End Sub
 'commande bas gauche
Private Sub Command2_Click()
Form1.Left = 0
Form1.Top = Screen.Height - Form1.Height
End Sub
 'commande haut droite
Private Sub Command3_Click()
Form1.Left = Screen.Width - Form1.Width
Form1.Top = 0
End Sub
 'commande bas droite
Private Sub Command4_Click()
Form1.Left = Screen.Width - Form1.Width
Form1.Top = Screen.Height - Form1.Height
End Sub
 ' sortir du programme
Private Sub Command5_Click()
End
End Sub