Konversi String ke Form di VB6

mulanya ada temen yg tanya2 ingin menggunakan variable string (lebih spesifiknya menggunakan ListView) untuk memanggil suatu form. ktnya selalu gagal....

akhirnya gw tergelitik untuk mencari/mencoba lebih lanjut...

dan berhasil. idenya berdasar referensi dari www.daniweb.com dan sedikit improvisasi hasilnya seperti ini:

'------------------------------------------------------------

'Manggil Form dari variable String

'=================================

'Improved : Sopian

'Reference: http://www.daniweb.com

'-------------------------------------------------------------

Private Sub Form_Load()

Dim xItem As ListItem

Set xItem = ListView1.ListItems.Add(, "Form1", "Pilih Form-1")

Set xItem = ListView1.ListItems.Add(, "Form2", "Pilih Form-2")

Set xItem = ListView1.ListItems.Add(, "Form3", "Pilih Form-3")

End Sub

Private Sub ListView1_Click()

Dim oke As Boolean

oke = False

For i = 0 To Forms.Count - 1

'ngecek apakah form sedang terbuka...

If Forms(i).Caption = ListView1.SelectedItem.Key Then

Forms(i).SetFocus

oke = True

End If

Next

If Not oke Then

'Buka Form yg dipilih....

'----Cara #1

Set frmname = Forms.Add(ListView1.SelectedItem.Key)

frmname.Show

'----Cara #2

' Set frmname = CallByName(Forms, "Add", VbMethod, ListView1.SelectedItem.Key)

' frmname.Show

End If

End Sub