Hola compañer@s

Aqui os dejo un proyecto simple y ridiculo :P

os dejo esta simple calculadora que programe...



[code]Private Sub Command1_Click()

If Val(Text1) + Val(Text2) Then
End If

Label1.Caption = Val(Text1) + Val(Text2)
If Text1.Text = "" Then MsgBox "Campo Vacio"


End Sub

Private Sub Command2_Click()

If Val(Text4) - Val(Text5) Then
End If

Label1.Caption = Val(Text4) - Val(Text5)
If Text4.Text = "" Then MsgBox "Campo vacio"



End Sub

Private Sub Command3_Click()

If Val(Text8) * Val(Text9) Then
End If

Label1.Caption = Val(Text8) * Val(Text9)
If Text8.Text = "" Then MsgBox "Campo vacio"


End Sub

Private Sub Command4_Click()



If Val(Text6) <> 0 Then
End If
If Val(Text7) <> 0 Then
End If

If Val(Text6) / Val(Text7) Then
End If

Label1.Caption = Val(Text6) / Val(Text7)
If Text6.Text = "" Then MsgBox "Campo vacio"



End Sub

Private Sub Form_Load()
MsgBox "Coded by Pielcelestial" & vbNewLine & "Agradecimientos: Metal_Kingdom", vbInformation
End Sub
[/code]

Descarga Compilado: [Enlace externo eliminado para invitados]

PD: se agrego peso por el icono xD