Public Class frm99
Public sNameOfForm As String = Nothing
Private Sub frm99_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox(sNameOfForm)
End Sub
End Class
And for all other Forms:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With frm99
.sNameOfForm = Me.Name
.Show()
End With
End Sub
codeorder
Posting Virtuoso
1,915 posts since Aug 2010
Reputation Points: 255
Solved Threads: 384