Public Sub insertLogHistory(messageStr As String)
Me.LogHistory.Text = Me.LogHistory.Text + vbCrLf + Date.Now + " - " + messageStr
End Sub
Dim FormClass As New Form1()
Public Function HelloWorld() As Boolean
FormClass.insertLogHistory("Hello world")
End Function