重写ShowDialog

子窗体FORM2

Public Overloads Function ShowDialog(ByVal ht As Hashtable) As Integer
            Try
                hts = Nothing
                hts = ht
                Me.ShowDialog()

            Catch ex As Exception

            End Try
   End Function 

主窗体 Form1

dim f2 as new form2

dim i as integer

i=f2.showDialog(ht)