Private Sub command1_Click()
If th.Text = "XL" Then
    If Opt1 Then
        txtbayar = 90000
    ElseIf Opt2 Then
        txtbayar = 45000
     ElseIf Opt3 Then
        txtbayar = 18000
    ElseIf Opt4 Then
    txtbayar = 10000
     End If
End If
If th.Text = "simpati" Then
    If Opt1 Then
        txtbayar = 95000
    ElseIf Opt2 Then
        txtbayar = 45000
    ElseIf Opt3 Then
        txtbayar = 19000
    ElseIf Opt4 Then
    txtbayar = 10000
    End If
End If
If th.Text = "Esia" Then
    If Opt1 Then
        txtbayar = 85000
    ElseIf Opt2 Then
        txtbayar = 40000
    ElseIf Opt3 Then
        txtbyar = 18000
    ElseIf Opt4 Then
        txtbayar = 9000
     End If
End If

End Sub

Private Sub Form_Load()
txtbayar.Enabled = False
End Sub