Guest User

Untitled

a guest
Jan 22nd, 2019
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. Dim intValue As Integer = 0
  2. If CheckBox0.Checked Then intValue += 1
  3. If CheckBox1.Checked Then intValue += 2
  4. If CheckBox2.Checked Then intValue += 4
  5. If CheckBox3.Checked Then intValue += 8
  6. Dim strHex As String = intValue.ToString("x")
Add Comment
Please, Sign In to add comment