Visual Basic

If cn.State = ConnectionState.Closed Then<br />
            cn.ConnectionString = "provider=SQLOLEDB;server=maged;database=ceasr;user id=sa;pwd=magedhv"<br />
            cn.Open()<br />
            cmd.Connection = cn<br />
            cmd.CommandType = CommandType.Text<br />
            cmd.CommandText = "BACKUP DATABASE ceasr to disk = d:\backup\myDatabase.bak"<br />
        End If

Imports System.ComponentModel
 
Public Class MyButton
    Inherits System.Windows.Forms.Button
 
    <Browsable(False)> _
    Public Overrides Property Text() As String
        Get
            Return "This is my custom button!"
        End Get
        Set(ByVal value As String)
            ' Just don't do anything with this
        End Set
    End Property
End Class

If (e.KeyCode = Keys.Enter) Then
         //Show the form here
End If

Private Sub txtFocus_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtFocus.KeyPress<br />
        If e.KeyChar = Chr(Keys.Enter) Then  'or if e.keychar=chr(13)<br />
           form2.show<br />
        End If<br />
    End Sub

CrystalReportViewer1.ReportSource = ("crystalreport1.rpt")<br />