Net Anlatım .Net Geliştirme

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        X = 0
        Y = 0
        PopupMenu mdosya, 4, Form1.Left + X, Form1.Top + Y
    End If
End Sub

Private Sub mac_Click()
    CommonDialog1 = 1
End Sub

Private Sub mcıkıs_Click()
    End
End Sub

Private Sub mcopy_Click()
    Clipboard.SetText Text1.SelText
    
End Sub

Private Sub mcut_Click()
    Clipboard.SetText Text1.SelText
    Text1.SelText = “”
End Sub

Private Sub mnormal_Click()
    Form1.WindowState = 0
End Sub

Private Sub mpaste_Click()
    Text1.SelText = Clipboard.GetText
End Sub

Private Sub msimge_Click()
    Form1.WindowState = 1
End Sub

Private Sub mtam_Click()
    Form1.WindowState = 2
End Sub

Private Sub myeni_Click()
    CommonDialog1.Action = 2
End Sub