Visual Basic

private Panel panel;
private bool paintRectFlag=true;
private Rectangle rect=new Rectangle(20, 20, 300, 200);
private Pen rectPen=Pens.Black;

public Form1() {
    InitializeComponents();
    panel=new Panel();
    panel.Bounds=new Rectangle(…);
    panel.Paint+=panelPaintHandler;
    Controls.Add(panel);
}

protected void panelPaintHandler(object sender, PaintEventArgs e) {
    Graphics g=e.Graphics;
    if (paintRectFlag) g.DrawRectangle(rectPen, rect);
}

protected void buttonClickHandler(object sender, EventArgs e) {
    paintRectFlag=!paintRectFlag;   // toggle visible flag
    panel.Invalidate();
}

ServiceStartMode mode=ServiceStartMode.Parse(Me.cbStartMode.Text)
ob.SetPropertyValue("StartMode", mode)

public Form1()
{
    InitializeComponent();

    foreach (Control ctl in this.Controls)
        if (ctl is Label)
        {
            // This hides the labels during runtime
            Label lbl = (Label)ctl;
            lbl.Visible = false;
        }
}

private void pictureBox1_Paint(object sender, PaintEventArgs e)
{
    foreach (Control ctl in this.Controls)
        if (ctl is Label)
        {
            // This lets the PictureBox draw the contents of the labels
            // on it's own canvas, as opposed to directly showing them.
            Label lbl = (Label)ctl;
            e.Graphics.DrawString(
                 lbl.Text,
                 lbl.Font,
                 new SolidBrush(lbl.ForeColor),
                 lbl.Left - pictureBox1.Left,
                 lbl.Top - pictureBox1.Top);
        }
}

eg_Anubhava wrote:

So Please give me another idea.

eg_Anubhava wrote:

but my requirement is changing and Draging of Picturebox.

Private bool bChecking
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
if bCheckeing then return
bchecking = true
If Status.Text = "Not Connected" Then
MsgBox("Interface is not pluged in", MsgBoxStyle.OkOnly + vbCritical, "Error")
CheckBox1.Checked = False
bchecking = false
Else
'The Code to Run My Program '
End If
End Sub

If CheckBox1.Checked Then
                NumericUpDown1.Value = CType(CTemp.Text, Integer) + 1
                NumericUpDown2.Value = CType(CTemp.Text, Integer) - 1

Else
                NumericUpDown1.Value = 0.0
                NumericUpDown2.Value = 0.0
                phidgetIFK.outputs(0) = False
                phidgetIFK.outputs(1) = False
            End If

Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If bChecking Then Return
        bChecking = True
        If Status.Text = "Not Connected" Then
            MsgBox("interface is not connected. Connect USB cable and try agine.", MsgBoxStyle.OkOnly + vbCritical, "Error")
            CheckBox1.Checked = False
            bChecking = False
        Else
            If CheckBox1.Checked Then
                NumericUpDown1.Value = CType(CTemp.Text, Integer) + 1
                NumericUpDown2.Value = CType(CTemp.Text, Integer) - 1
            Else
                NumericUpDown1.Value = 0.0
                NumericUpDown2.Value = 0.0
                phidgetIFK.outputs(0) = False
                phidgetIFK.outputs(1) = False
            End If
        End If
    End Sub