[Vb6]Come posso migliorare sto cod?

[Luc@s]

Public Function Addiziona(n As Integer, m As Integer) As Integer 
Dim ris As Long 
ris = n + m 
Addiziona = ris 
End Function 

Public Function Sottrai(r As Integer, l As Integer) As Integer 
Dim risul As Long 
ris = r - l 
Sottrai = risul 
End Function 

Public Function Moltiplica(n As Integer, m As Integer) As Integer 
Dim ris As Long 
ris = n * m 
Moltiplica = ris 
End Function 

Public Function Dividi(n As Integer, m As Integer) As Integer 
Dim ris As Long 
ris = n / m 
Dividi = ris 
End Function 

Private Sub Chiudi_Click() 
Unload Princ 
End Sub 

Private Sub diviso_Click() 
res.Text = Dividi(primo.Text, secondo.Text) 
End Sub 

Private Sub infos_Click() 
Dim info 
info = MsgBox("Programma by Kleidemos", vbInformation, "Abuot....") 
End Sub 

Private Sub meno_Click() 
res.Text = Sottrai(primo.Text, secondo.Text) 
End Sub 

Private Sub per_Click() 
res.Text = Moltiplica(primo.Text, secondo.Text) 
End Sub 

Private Sub plus_Click() 
res.Text = Addiziona(primo.Text, secondo.Text) 
End Sub

come lo miglioro????????
Vi allego il risultato........anche per suggerimenti stilistico-grafici!