sintax4

Private Sub CommandButton1_Click()
UserForm13.MousePointer = 5
End Sub




Private Sub CommandButton10_Click()
UserForm13.KeepScrollBarsVisible = 3
End Sub

Private Sub CommandButton11_Click()
UserForm13.KeepScrollBarsVisible = 0
End Sub

Private Sub CommandButton2_Click()
UserForm13.MousePointer = 7
End Sub

Private Sub CommandButton3_Click()
UserForm13.MousePointer = 9
End Sub

Private Sub CommandButton4_Click()
UserForm13.MousePointer = 3
End Sub

Private Sub CommandButton8_Click()
UserForm13.KeepScrollBarsVisible = 1
End Sub

Private Sub CommandButton9_Click()
UserForm13.KeepScrollBarsVisible = 2
End Sub

Private Sub UserForm_Click()
UserForm13.ScrollBars = 3
End Sub

ritorna