mcs/mbas/Test/misc/test.vb

   1 Imports System.Windows.Forms
   2
   3 Module Test
   4
   5 Sub MySub(b)
   6         System.Console.WriteLine (b)
   7 End Sub
   8
   9 Sub Main()
  10         Dim a as Integer
  11         Dim fgh as Integer
  12         Dim btn as Button
  13         Dim frm as TestClass
  14
  15         System.Console.WriteLine ("This var ")
  16         System.Console.WriteLine ("contains ")
  17         a = (1 + 2) * 144
  18
  19         System.Console.WriteLine (a)
  20         a = 1
  21         If (a > 2) Then
  22                 System.Console.WriteLine ("Greater than 2")
  23         Else
  24                 System.Console.WriteLine ("Less than 2")
  25         End If
  26
  27         a = 3
  28         If (a > 2) Then
  29                 System.Console.WriteLine ("Greater than 2")
  30         Else
  31                 System.Console.WriteLine ("Less than 2")
  32         End If
  33
  34         frm = new TestClass("a")
  35         frm.Width = 300
  36         frm.Height = 80
  37         frm.PutButtonOnForm()
  38         frm.button1.Text = "AAA"
  39         frm.ShowDialog()
  40         MySub("parameter!!!!!!")
  41 End Sub
  42
  43 End Module