Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        Try
            TextBox2.Text = "0x" & UCase(Convert.ToString(CInt(TextBox1.Text), _
              16))
            TextBox3.Text = "0b" & Format(CInt(UCase(Convert.ToString(CInt( _
            TextBox1.Text), 2))), "00000000")
        Catch
            TextBox2.Text = "0x0"
            TextBox3.Text = "0b00000000"
        End Try
    End Sub
 
    Private Sub TextBox2_KeyUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
        Try
            TextBox1.Text = Convert.ToInt32(TextBox2.Text, 16)
            TextBox3.Text = "0b" & Format(CInt(UCase(Convert.ToString(CInt( _
              TextBox1.Text), 2))), "00000000")
        Catch
            TextBox1.Text = "0x0"
            TextBox3.Text = "0b00000000"
        End Try
    End Sub
 
    Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyUp
        Try
            TextBox1.Text = Convert.ToByte(Mid(TextBox3.Text, 3), 2)
            TextBox2.Text = "0x" & UCase(Convert.ToString(CInt(TextBox1.Text), _
              16))
        Catch
            TextBox1.Text = "0"
            TextBox2.Text = "0x0"
        End Try
    End Sub