Public Class Form1
 
   Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Resize
      CenterPanel(Me.Panel1, Me)
   End Sub
 
   Private Sub CenterPanel(ByVal pn As Panel, ByVal frm As Form)
      Try
         pn.Location = New Point(frm.ClientSize.Width / 2 - pn.Width / 2, _
            frm.ClientSize.Height / 2 - pn.Height / 2)
 
         pn.Invalidate()
      Catch : End Try
   End Sub
 
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control