Contoh Program Sederhana VB .NET

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim j, o As Integer

        ListBox1.Items.Clear()

        For j = Val(TextBox1.Text) To Val(TextBox2.Text)

            If j Mod 9 = 0 And j Mod 27 = 0 Then

                ListBox1.Items.Add(j)

            End If

        Next

        ListBox2.Items.Clear()

        For o = Val(TextBox1.Text) To Val(TextBox2.Text)

            If o Mod 2 = 3 Then

                ListBox2.Items.Add(o)

            End If

        Next

    End Sub

End Class