Prova così, contemporaneamente determini anche le dimensioni della From:
codice:
With FrmProva
If .WindowState <> vbNormal Then
.WindowState = vbNormal
.Top = 0
.Left = 0
.Height = 18300
.Width = 15360
End If
End With
Scusa forse non ho capito la tua domanda. Se devi Riattivare la form, allora usa Call Form_Activate da inserire al termine della routine di cui fai cenno:
codice:
Private Sub Form_Activate()
If Me.WindowState <> vbNormal Then
Me.WindowState = vbNormal
Me.Top = 0
Me. Left = 0
Me.Height = 18300
Me.Width = 15360
End If
End Sub