Me.TopMost = True
 
Me.Focus()
 
Me.Show()
 
Me.Refresh()
 
Private Sub frmMain_Validating(ByVal sender As Object, ByVal e As _
  System.ComponentModel.CancelEventArgs) Handles Me.Validating
        e.Cancel = True
End Sub