Programalama > VISUAL BASIC

Private Sub Form_Load()
pano.Visible = False
Option1.Value = True
End Sub

Private Sub Option1_Click()
pano.Visible = False
End Sub

Private Sub Option2_Click()
pano.Visible = True
End Sub

Private Sub tarih_Click()
Text1.Text = Text1.Text & Now
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If pano.Visible = True Then GoTo atla
If Button = 2 Then
PopupMenu pano
End If
atla:
End Sub