Private Sub Command1_Click()

a = Val(t1.Text)

If o1.Value = True Then

t2 = a

End If

If o2.Value = True Then

t2 = Hex(a)

End If

If o3.Value = True Then

t2 = Oct(a)

End If

If o4.Value = True Then

Do While a <> 0

b = a Mod 2

a = a \ 2

S = b & S

Loop

t2 = S

End If

End Sub

Private Sub Command2_Click()

t1 = ""

t2 = ""

End Sub

Private Sub Command3_Click()

End

End Sub