Private Sub ContextMenuStrip1_Click(ByVal sender As System.Object, ByVal e _
     As System.EventArgs) Handles ContextMenuStrip1.Click
      Dim strName As String = CType(sender, ContextMenuStrip).SourceControl.Text
 
      If Not IsOpened(strName) Then
         Dim frm As New Form2
 
         frm.Text = strName
         frm.Show()
      Else
         Call SetFocus(strName)
      End If
   End Sub
 
   Private Function IsOpened(ByVal name As String) As Boolean
      For Each f As Form In My.Application.OpenForms
         If f.Text = name Then Return True
      Next
   End Function
 
   Private Sub SetFocus(ByVal name As String)
      For Each f As Form In My.Application.OpenForms
         If f.Text = name Then f.Focus()
      Next
   End Sub