檢查 form 是否已開

 For Each frm As Form In Application.OpenForms

    If frm.Name = Form1.Name Then

       MessageBox.Show("Opened")

    End If

Next