konversi panjang visual basic

Private Sub Form_Load()
Form1.BackColor = vbGreen
Label1.BackColor = vbBlue
Label2.BackColor = vbBlue
Label1.ForeColor = vbRed
Label2.ForeColor = vbRed
Label3.ForeColor = vbRed
Label3.BackColor = vbYellow
cmdhapus.BackColor = vbRed
cmdkeluar.BackColor = vbvred
panjang1.BackColor = vbYellow
panjang2.BackColor = vbYellow





End Sub

Private Sub optcm2_Click()
If txtpj.Text = optkm1.Value = True Then txtkon.Text = txtpj.Text * 100000
If txtpj.Text = optm1.Value = True Then txtkon.Text = txtpj.Text * 1000
If txtpj.Text = optcm1.Value = True Then txtkon.Text = txtpj.Text * 1
If txtpj.Text = optmm1.Value = True Then txtkon.Text = txtpj.Text / 10
End Sub

Private Sub optkm2_Click()
If txtpj.Text = optkm1.Value = True Then txtkon.Text = txtpj.Text * 1
If txtpj.Text = optm1.Value = True Then txtkon.Text = txtpj.Text / 1000
If txtpj.Text = optcm1.Value = True Then txtkon.Text = txtpj.Text / 100000
If txtpj.Text = optmm1.Value = True Then txtkon.Text = txtpj.Text / 1000000
End Sub

Private Sub optm2_Click()
If txtpj.Text = optkm1.Value = True Then txtkon.Text = txtpj.Text * 1000
If txtpj.Text = optm1.Value = True Then txtkon.Text = txtpj.Text * 1
If txtpj.Text = optcm1.Value = True Then txtkon.Text = txtpj.Text / 100
If txtpj.Text = optmm1.Value = True Then txtkon.Text = txtpj.Text / 1000
End Sub

Private Sub optmm2_Click()
If txtpj.Text = optkm1.Value = True Then txtkon.Text = txtpj.Text * 1000000
If txtpj.Text = optm1.Value = True Then txtkon.Text = txtpj.Text * 1000
If txtpj.Text = optcm1.Value = True Then txtkon.Text = txtpj.Text * 10
If txtpj.Text = optmm1.Value = True Then txtkon.Text = txtpj.Text * 1
End Sub