[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

جرب الكود : 

كود :

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Top = Me.Top - 2 * Screen.PrimaryScreen.Bounds.Height
    End Sub

    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Me.Visible = False
        Me.Top = Me.Top + 2 * Screen.PrimaryScreen.Bounds.Height
    End Sub