prova così:

Dim frmCalendario As New frmCalendario()
frmCalendario.Show()
Application.Run(frmCalendario)
End Sub