Public Class Form1
    Dim f As Form1
    Dim number As Long
    Dim d As Decimal
    Dim a As Integer
    Public a As Integer
    Public b As Integer
    Public c As Decimal
    Dim f As Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "wellcome to baluja labs"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        number = CLng(InputBox("enter the number", "digital"))
        Select Case number
            Case Is < 10
                MsgBox(number & " the number is single digit number", , " baluja labs")
        End Select
        d = CDec(TextBox1.Text)
        MsgBox("ashish" & d)
        a = 500
        Select Case a
            Case 100
            Case 200
            Case Else

        End Select

        Do
            a = Val(TextBox1.Text)
            MsgBox("value is = " & a)

        Loop While a < 122

        For a = 10 To 20
            Label1.Text = "hello " & f.Text

        Next
        Try
            a = 20
            b = 4
            c = a / b
            a += 1
            MsgBox("result is = " & c, , "baluja labs")
        Catch ex As Exception
            MsgBox("wrong digit")

        End Try
    End Sub
End Class