کنترل فرم با استفاده از خاصیت های "Me.Right" و "Me.bottom" بر عکس خاصیت های "Me.Left" و "Me.top"
Sub MeRight(ByVal Number As Integer)
Dim A = Screen.PrimaryScreen.Bounds.Width
Me.Left = A - Me.Width - Number
End Sub
Sub MeBottom(ByVal Number As Integer)
Dim A = Screen.PrimaryScreen.Bounds.Height
Me.Top = A - Me.Height - Number
End Sub
پاسخ با نقل قول
