FORM MAGNÉTIQUE QUI SE COLLE AU BORDURE DE L'ÉCRAN

Private Type Ecran
    X As Integer
    Y As Integer
End Type
Private Function get_Res() As Ecran
    get_Res.X = Screen.Width \ Screen.TwipsPerPixelX
    get_Res.Y = Screen.Height \ Screen.TwipsPerPixelY
End Function
Private Sub form_load()
Timer1.Interval = 1
End Sub
'détermine la position la position de la form tous les x secondes
Private Sub Timer1_Timer()
If Form1.Top < 480 Then '480 est une mesure en twip
Form1.Top = 0 'colle la form contre la bordure du haut
End If
If Form1.Top > (((get_Res.Y * 15) - Form1.Height) - 800) Then '*15 signifie que je multiplie la largeur de l'écran (mesure en twip) que je multiplie par 15 pour avoir la mesure en pixels
Form1.Top = (((get_Res.Y * 15) - Form1.Height) - (420)) 'colle la form contre la barre des taches
End If
If Form1.Left > (((get_Res.X * 15) - Form1.Width) - 480) Then
Form1.Left = ((get_Res.X * 15) - Form1.Width) 'colle la form contre la bordure de droite
End If
If Form1.Left < 480 Then
Form1.Left = 0 'colle la form contre la bordure de gauche
End If
End Sub