Visual Basic

miladbiranvand wrote:

ok ,now help

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Counter for the new object name
        Static counter As Integer
        counter += 1

        'Add a picture box
        Dim newPicBox As New PictureBox
        newPicBox.Name = "Custom Box " + counter.ToString

        AddHandler newPicBox.MouseMove, AddressOf customMouseMove

        'Add it to the forms collection
        Me.Controls.Add(newPicBox)

        'Set it up
        newPicBox.BackColor = Color.AliceBlue
        newPicBox.Top = 25
        newPicBox.Left = 50
        newPicBox.Width = 100
        newPicBox.Height = 100
        newPicBox.BringToFront()

    End Sub

    Private Sub customMouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        Dim picBox As PictureBox = sender

        Label1.Text = "Over: " & picBox.Name

    End Sub

private class LP_StringComparerLogical : IComparer<string> {
    public int Compare(string s1, string s2) {
        if (s1!=null && s2!=null) return StrCmpLogicalW(s1, s2);
        else return string.Compare(s1, s2, true);
    }
}

[DllImport("shlwapi.dll", CharSet=CharSet.Unicode, ExactSpelling=true)]
private static extern int StrCmpLogicalW(string s1, string s2);

Declare Unicode StrCmpLogicalW Lib "shlwapi.dll" (s1 As String, s2 As String)

Me.DateTimePicker2.Value = Me.DateTimePicker1.Value.AddMonths(1)

Me.DateTimePicker1.Value = Me.DateTimePicker1.Value.AddMonths(1)