[OSのVer]：Windows　XP　　　[VBのVer]：VB.NET　　 2003
恐れ入ります。AccessVBAで使用しているプログラムの中で、
Private Sub msub該当フォーム起動_Click()
'該当フォームが起動していない場合にのみ起動する。
If CurrentProject.AllForms("該当フォーム").Isloaded=false Then
   Docmd.OpenForm "該当フォーム"
Else
   MessageBox.Show("既にフォームが開いています。","フォーム起動制御")
End If
End Sub
というプログラムを使用していました。
これと同様のプログラムをVB.NETで行いたいのです。
下記のイベントプロシージャに必要なステートメントを教えて下さい。
よろしくお願いします。

Private Sub cmd_該当フォーム起動_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmd_該当フォーム起動.Click
　　　　'該当フォームが起動していない場合にのみ起動する。
        If (ここに必要なステートメントは？) Then
            Dim objFm_該当フォーム As New Fm_該当フォーム()
            Fm_該当フォーム.Show()
        End If
    End Sub

> Private Sub cmd_該当フォーム起動_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles cmd_該当フォーム起動.Click
> 　　　　'該当フォームが起動していない場合にのみ起動する。
>         If (ここに必要なステートメントは？) Then
>             Dim objFm_該当フォーム As New Fm_該当フォーム()
>             Fm_該当フォーム.Show()
>         End If
>     End Sub
すみません。修正します。
(誤)Fm_該当フォーム.Show()
(正)objFm_該当フォーム.Show
です。よろしくお願いします。

ひろのしまさん，こんにちは。
こんな感じでしょうか？（最善の方法とは言えないと思いますが，参考まで）

    Dim f As Form
    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles Button1.Click
        If f Is Nothing OrElse Not f.Visible Then
            f = New Form
            f.Show()
        End If
    End Sub

ちょびっと改良しました。

    Dim f As Form
    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles Button1.Click
        If f Is Nothing OrElse f.IsDisposed Then
            f = New Form
        End If
        If Not f.Visible Then
            f.Show()
        End If
    End Sub

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
> ちょびっと改良しました。
>
>     Dim f As Form
>     Private Sub Button1_Click(ByVal sender As System.Object, _
>                               ByVal e As System.EventArgs) _
>                               Handles Button1.Click
>         If f Is Nothing OrElse f.IsDisposed Then
>             f = New Form
>         End If
>         If Not f.Visible Then
>             f.Show()
>         End If
>     End Sub
ありがとございます。上記記述をしようすることにより
解決できました。ありがとうございます。