Visual Basic

private void OnMouseDownClickCount(object sender, 
MouseButtonEventArgs e)
{
    // Checks the number of clicks.
    if (e.ClickCount == 1)
    {
        // Single Click occurred.
        lblClickCount.Content = "Single Click";
    }
    if (e.ClickCount == 2)
    {
        // Double Click occurred.
        lblClickCount.Content = "Double Click";
    }
    if (e.ClickCount > 3)
    {
        // Triple Click occurred.
        lblClickCount.Content = "Triple Click";
    }
}

Protected Overrides Sub WndProc(ByRef recWinMessage As Microsoft.WindowsCE.Forms.Message)
    MyBase.WndProc(recWinMessage)
End Sub

If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
               If SaveFileDialog1.FileName = "" Then
                   MsgBox("Plase input file name ")

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

       Dim myStream As Stream = Nothing
       Dim openFileDialog1 As New OpenFileDialog()

       openFileDialog1.InitialDirectory = "c:\"
       openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
       openFileDialog1.FilterIndex = 2
       openFileDialog1.RestoreDirectory = False

       If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
           Try
               myStream = openFileDialog1.OpenFile()
               If (myStream IsNot Nothing) Then
                   ' Insert code to read the stream here.
               End If
           Catch Ex As Exception
               MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
           Finally
               ' Check this again, since we need to make sure we didn't throw an exception on open.
               If (myStream IsNot Nothing) Then
                   myStream.Close()
               End If
           End Try
       End If
   End Sub