' At design time we set:
' ControlBox = False
' Caption = ""
' WindowState = Maximized
' BorderStyle = FixedSingle
Private Sub Form_Resize()
picCenter.BorderStyle = vbBSNone
picCenter.Move _
(ScaleWidth - picCenter.Width) / 2, _
(ScaleHeight - picCenter.Height) / 2
End Sub
|