Private Sub Form_Load() Dim X As Boolean X = False Me.Visible = X X = not Me.Visible Msgbox "Form should appear now" Me.Visible = X ' Works fine End Sub