Public Class Form1
    Public player(10) As PlayerRec
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim l As NLua.Lua
        Dim a

        player(1).Name = "jcsnider"
        player(1).X = 12
        player(1).Y = 12
        player(1).Chunk = 202

        l = New NLua.Lua()
        l.LoadCLRPackage()
        l.Item("player") = player(1)
        l.RegisterFunction("SendAlertMessage", Me, Me.GetType().GetMethod("SendAlertMessage"))
        l.RegisterFunction("ShowMessage", Me, Me.GetType().GetMethod("ShowMessage"))
        l.DoString(TextBox1.Text)
    End Sub
    Public Sub ShowMessage(ByVal msg As String)
        MsgBox(msg)
    End Sub
    Public Structure PlayerRec
        Dim Name As String
        Dim X As Long
        Dim Y As Long
        Dim Chunk As Long
    End Structure

    Public Sub SendAlertMessage(towhom As Long, msg As String)
        MsgBox("Sending " & msg & " to " & towhom)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class