دو حالته کردن باتن

سلام
میخواستم بدونم چطوری میشه یک باتن رو دو حالته کرد (فلیپ فلاپ)؟
در بعضی از کامپونت ها با true کردن checkboxbehavi رنگ باتن در کلیک اول تغییر میکنه و با کلیک دوم به حالت اولیه برمی گرده.
لطفا راهنمایی کنید.:لبخندساده:

حالت Style باتون رو بزارید روی گرافیک بعد این هم دستورات

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Command1.BackColor = vbYellow

End Sub



Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Command1.BackColor = &H8000000F

End Sub

سلام علیکم
میتوانید از CheckBox هم برای این منظور استفاده کنید، به عبارتی خاصیت Style این کنترل را بر روی Graphical تنظیم کرده سپس از کدی مانند زیر استفاده کنید:

 

Private Sub Check1_Click() 

    If Check1.Value Then Check1.BackColor = vbRed Else Check1.BackColor = vbButtonFace 

End Sub 

موفق باشید

ببخشید
منظورم رو بد رسوندم
منظورم اینه که با کلیک اول یک عمل انجام شود و با کلیک دوم عمل دیگه ای انجام بشه
با تشکر

سلام
از کدی مشابه زیر میتوانیم برای این مورد استفاده کنیم:

 

Private Sub Command1_Click() 

    Static iClk_num% 

    iClk_num% = iClk_num% + 1 

    If iClk_num% = 1 Then 

        Caption = "Click1" 

    Else 

        Caption = "Click2" 

        iClk_num% = 0 

    End If 

End Sub 

موفق باشید

متشکر
مشکلم حل شد