Private Sub ÜberToolStripMenuItem1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ÜberToolStripMenuItem1.Click
        Panel1.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 2 - _
        Panel1.Width / 2, Screen.PrimaryScreen.Bounds.Height / 2 - _
        Panel1.Height / 2)
        Panel1.Show()
    End Sub

fg viperbone