Menukar Caption CommandButton Melalui VB6 Code

Terkadang kita membutuhkan aksi tukar (toggle) property Caption dari sebuah object CommandButton. Misalnya menukar Caption CommandButton dari Start menjadi Stop atau sebaliknya dari Stop menjadi Start. Bagaimana hal tersebut bisa dilakukan melalui pemrograman Visual Basic 6.0?

Berikut ini contoh merubah menukar Caption CommandButton dari Start menjadi Stop dan sebaliknya dari Stop menjadi Start.

Option Explicit 
 
Private Sub Form_Load() 
    Command1.Caption = "Start" 'Set nilai awal Caption dengan start 
End Sub 
 
Private Sub Command1_Click() 
    If Command1.Caption = "Start" Then 
        Command1.Caption = "Stop" 
    Else 
        Command1.Caption = "Start" 
    End If 
End Sub 

Apabila kita terjemahkan logika di atas ke dalam bahasa manusia kira-kira seperti berikut: apabila Command1.Caption bernilai Start maka ganti Command1.Caption menjadi bernilai Stop, (Else) jika tidak Command1.Caption bernilai Start (alias Command1.Caption bernilai Stop) maka ganti Command1.Caption menjadi bernilai Start.

Demikian cara menukar Caption yang terdapat pada sebuah CommandButton menggunakan kode yang dibuat dalam bahasa pemrograman Visual Basic 6.0.