تبدیل enter به tab در زبان سی شارپ

protected override bool ProcessCmdKey(ref Message msg, Keys keyData)

        {

            if (keyData == Keys.Enter)

            {

                SendKeys.Send("{tab}");

                return true;

            }

            return base.ProcessCmdKey(ref msg, keyData);

        }

بارویداد keyup به هنگام تایپ اعداد بصورت ستایی جدا می شوند

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp

        Try

            Me.TextBox1.Text = Format(CLng(Me.TextBox1.Text), "###,###,###,###,###;;0")

            Me.TextBox1.SelectionStart = Me.TextBox1.Text.Length

        Catch

            Exit Try

        End Try

    End Sub

با کشیدن گوشه فرم و تغییر سایز رنگ شیب دار ایجاد می شود

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize

        MakeGradient()

    End Sub

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated

        MakeGradient()

    End Sub

    Private Sub MakeGradient()

        Dim objBrush As New Drawing2D.LinearGradientBrush(Me.DisplayRectangle, Color.Blue, Color.AliceBlue, Drawing2D.LinearGradientMode.Vertical)

        Dim objGraphics As Graphics = Me.CreateGraphics()

        objGraphics.FillRectangle(objBrush, Me.DisplayRectangle)

        objBrush.Dispose()

        objGraphics.Dispose()

    End Sub