Module1.kbasic_module

Main () As VARIANT

Sub testPrint()
  Print "Hi"
End Sub

Function Main()
  ' Application.OpenForm("Form1") ' open in design mode

  /*
  Dim Msg2

  On Error Resume Next
  Print ""

  Err.Clear
  Err.Raise(6, "cool-error?", "in sourcefile xyz")

  If Err.Number <> 0 Then
    Msg2 = "Error # " & Str(Err.Number) & " "  & Err.Source & Chr(13) & Err.Description
    Print Msg2
  End If
*/


  ' run form
  Dim f As New Form1
  f.Open()

  Do While True
  Loop

End Function