Private Sub sxpTankbuch_Activate()
    With frmTankbuch.sxpTankbuch
      .XPStyle = True
      .XPColorStyle = mbBlue
      .CenterForm
      '.AlwaysOnTop = True
      .MaxButton = False
      .MinButton = True
      .AllowSize = False
      .Caption = "Tankbuch"
      .ShowInTaskbar = False
    End With
End Sub

mfg
peacemaker

e-mail: vbarchiv@web.de