[COLOR=Blue]Public Class[/COLOR] Class1
[COLOR=Blue]Public[/COLOR] frm [COLOR=Blue]As[/COLOR] Form1
[COLOR=Blue]Public[/COLOR] [COLOR=Blue]Sub New[/COLOR]([COLOR=Blue]ByVal[/COLOR] f [COLOR=Blue]As[/COLOR] Form1)
frm = f
[COLOR=Blue]End Sub[/COLOR]
[COLOR=Blue]Public Sub[/COLOR] setLabel([COLOR=Blue]ByVal[/COLOR] strText [COLOR=Blue]As String[/COLOR])
frm.Label1.Text = strText
[COLOR=Blue]End Sub[/COLOR]
[COLOR=Blue]End Class[/COLOR]
[COLOR=Blue]Private Sub[/COLOR] Button1_Click([COLOR=Blue]ByVal[/COLOR] sender [COLOR=Blue]As[/COLOR] System.Object, [COLOR=Blue]ByVal[/COLOR] e [COLOR=Blue]As[/COLOR] System.EventArgs) [COLOR=Blue]Handles[/COLOR] Button1.Click
[COLOR=Blue]Dim[/COLOR] cls [COLOR=Blue]As New[/COLOR] Class1([COLOR=Blue]Me[/COLOR])
cls.setLabel("test 123")
[COLOR=Blue]End Sub[/COLOR]