geome1

interazione su geometria molecolare

Option Explicit

Private Sub CommandButton1_Click()
Rem HIO4
Load UserForm2
UserForm2.Show
End Sub

Private Sub CommandButton10_Click()
Rem H2CO3
Load UserForm11
UserForm11.Show
End Sub

Private Sub CommandButton11_Click()
Rem H2SO4
Load UserForm12
UserForm12.Show
End Sub

Private Sub CommandButton12_Click()
Rem AlBr3
Load UserForm13
UserForm13.Show
End Sub

Private Sub CommandButton13_Click()
Rem Cl2O
Load UserForm14
UserForm14.Show
End Sub

Private Sub CommandButton14_Click()
Rem HBrO2
Load UserForm15
UserForm15.Show
End Sub

Private Sub CommandButton15_Click()
Rem BeBr2
Load UserForm16
UserForm16.Show
End Sub

Private Sub CommandButton16_Click()
Rem verifica
Load UserForm17
UserForm17.Show
End Sub

Private Sub CommandButton2_Click()
Rem NH3
Load UserForm3
UserForm3.Show

End Sub

Private Sub CommandButton3_Click()
Rem AlCl3
Load UserForm4
UserForm4.Show

End Sub

Private Sub CommandButton4_Click()
Rem H2O
Load UserForm5
UserForm5.Show

End Sub

Private Sub CommandButton5_Click()
Rem BeCl2
Load UserForm6
UserForm6.Show

End Sub

Private Sub CommandButton6_Click()
Rem HClO4
Load UserForm7
UserForm7.Show
End Sub

Private Sub CommandButton7_Click()
Rem PH3
Load UserForm8
UserForm8.Show
End Sub

Private Sub CommandButton8_Click()
Rem HClO3
Load UserForm9
UserForm9.Show
End Sub

Private Sub CommandButton9_Click()
Rem SO3
Load UserForm10
UserForm10.Show
End Sub

ritorna