Manuel De My Sql

PAISES
cClassForm1
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
ListBox1.Items.Add(item:="Buenos Aires")ListBox1.Items.Add(item:="El Salvador")
ListBox1.Items.Add(item:=("Madrid"))
ListBox1.Items.Add(item:=("MexicoD.f"))
EndSub

MONEDA
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Dim Result AsInteger
Dim Moneda AsInteger
Moneda = ListBox1.Items.Add(item:=ListBox1.SelectedIndex)
Select Moneda
Case 0
Result = MsgBox("Moneda"("local peso,vbinformation"), "mensaje")
Case 1
Result = MsgBox("Moneda"("local colon, vbinformation"), "mensaje")
Case 2
Result = MsgBox("Moneda"("local euro, vbinformation"), "mensaje")
Case 3
Result =MsgBox("Moneda"("local peso, vbinformation"), "mensaje")
EndSelect
EndSub

Dim dividendo AsInteger
Dim divisor AsInteger
Dim cociente AsInteger
dividendo = Val(TextBox1.Text)
divisor =Val(TextBox2.Text)
cociente = dividendo / divisor
TextBox3.Text = cociente

PublicClassForm1
PrivateSub RadioButton1_CheckedChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesRadioButton1.CheckedChanged
TextBox1.BackColor = Color.Blue
RadioButton1.ForeColor = Color.Blue
EndSub

PrivateSub RadioButton2_CheckedChanged(ByVal sender AsSystem.Object, ByVal eAsSystem.EventArgs) Handles RadioButton2.CheckedChanged
TextBox1.BackColor = Color.Red
RadioButton1.ForeColor = Color.Red
EndSub

PrivateSub RadioButton3_CheckedChanged(ByVal senderAsSystem.Object, ByVal e AsSystem.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.BackColor = Color.Black
RadioButton1.ForeColor = Color.Black
EndSub

PrivateSubRadioButton4_CheckedChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles RadioButton4.CheckedChanged
TextBox1.BackColor = Color.Orange
RadioButton1.ForeColor =...