07-03-21, 12:11 PM
اولا بتضيف الاكواد لحدث لواد او بوتن فتح الفورم الجديد
كود :
Dim x As Integer
Dim y As Integer
Me.StartPosition = FormStartPosition.Manual
' x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height
Me.Location = New Point(x, y)