Public Class frmMain
 
    Public Sub frmMain_Load() Handles frmMain.Load
 
    End Sub
 
    Public Sub btnClick_Click(Byval sender as Object, ByVal e As System.Args) Handles btnClick.Click
 
        Msgbox("Hello world!") 'NOTE: Using this is okay
 
        Dim X as Integer = 12 'NOTE: You would better do this!
        For Y as Integer = 0 to 99 Step 5
            'Statements
        Next Y
 
        For Each C as Char in "ASD"
 
        Next
 
    End Sub
 
End Class