2 gange klik

Hvorfor skal jeg klikke 2 gange før mit program kommer frem?

Den kode jeg bruger til at skjule programmet er:
Private Sub Form_Resize()

    If Me.WindowState = 1 Then
        Me.Hide
    End If
   
End Sub

Og den kode der ligger i højrekliks tray menuen er:

Private Sub vis_Click()
If Form11.Visible = False Then
        Form11.Show
        Form11.WindowState = 0
    End If
End Sub

Hvad er det lige der går galt her?

T2C